home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)ze.d64 / txt.random fix < prev    next >
Text File  |  2007-03-01  |  864b  |  35 lines
  1. ╞╔╠┼ ┬╒╟ ╞╔╪ ┴╟┴╔╬
  2. ------------------
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS GROUP
  5.  
  6. ╔N ├╧═┴╠ ╘╧─┴┘ #8 ═ICHAEL ┼RSKINE
  7. SUGGESTED THAT THE 1541 RELATIVE FILE
  8. PROBLEM WAS SOLVED BY READING FROM
  9. THE BLOCK JUST WRITTEN. ╔ DID LIKE HE
  10. DID, BUT THERE ARE STILL SOME ERRORS.
  11. ╙O ╔ DECIDED TO READ AFTER A WRITE
  12. FROM THE ╞╔╥╙╘ RECORD AND THAT IS
  13. ERROR FREE UNTIL NOW.
  14.  
  15. ╔ USED A ╥┴╬─╧═ FILE WITH A RECORD
  16. LENGTH OF 80 WITH SEVERAL FIELDS IN
  17. ONE RECORD. ╘HE MAXIMUM NUMBER OF
  18. RECORDS IN THE FILE IS 1500, SO, IF
  19. THE 1400TH IS WRITTEN, IT WORKS
  20. RATHER SLOW. ╘HAT IS WHY ╔ BUILT IN
  21. THE FOLLOWING PROCEDURE, FORCING A
  22. DUMMY READ AFTER A WRITE:
  23.  
  24. ╨╥╧├ READ'DUMMY(FIL#, R#) ├╠╧╙┼─
  25.   // R# IS THE RECORD JUST WRITTEN
  26.   ╔╞ R#>50 ╘╚┼╬
  27.     RECORD#:=R#-50
  28.   ┼╠╙┼
  29.     RECORD#:=1
  30.   ┼╬─╔╞
  31.   ╥┼┴─ ╞╔╠┼ FIL#, RECORD#: DUMMY#
  32.   // THE FIRST FIELD IN A RECORD
  33.   // IS AN INTEGER
  34. ┼╬─╨╥╧├ READ'DUMMY
  35.